home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / balloon / balfrm.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-05-07  |  2.0 KB  |  68 lines
  1. VERSION 2.00
  2. Begin Form BallFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Balloon Form"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   4425
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   268
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   491
  15.    Top             =   1140
  16.    Width           =   7485
  17.    Begin Timer Timer1 
  18.       Interval        =   5000
  19.       Left            =   6930
  20.       Top             =   0
  21.    End
  22.    Begin TextBox test 
  23.       Height          =   390
  24.       Left            =   1530
  25.       TabIndex        =   1
  26.       Text            =   "Balloon Help"
  27.       Top             =   3285
  28.       Width           =   3945
  29.    End
  30.    Begin PictureBox Picture1 
  31.       AutoSize        =   -1  'True
  32.       BorderStyle     =   0  'None
  33.       Height          =   330
  34.       Left            =   3285
  35.       Picture         =   BALFRM.FRX:0000
  36.       ScaleHeight     =   330
  37.       ScaleWidth      =   360
  38.       TabIndex        =   0
  39.       Top             =   1125
  40.       Width           =   360
  41.    End
  42.    Begin Label Label1 
  43.       BackColor       =   &H00C0C0C0&
  44.       Caption         =   "Balloon Help Text"
  45.       Height          =   240
  46.       Left            =   2565
  47.       TabIndex        =   2
  48.       Top             =   3015
  49.       Width           =   1905
  50.    End
  51. Dim WindowHandle As Integer, HintHandle As Integer
  52. Dim MyStringSize As Size
  53. Dim Dummy As Integer
  54. Dim RecArea As Rect
  55. Dim HintBitMap As Integer
  56. Dim RecWidth As Integer, RecHeight As Integer
  57. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  58.     Call RemBalloon(BallFrm)
  59. End Sub
  60. Sub Picture1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  61.     Dim HintString As String
  62.     HintString = Trim(Test.Text)
  63.         Call PutBalloon(HintString, BallFrm)
  64. End Sub
  65. Sub Timer1_Timer ()
  66.     Call CheckBalloon(BallFrm)
  67. End Sub
  68.